home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 18 / AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso / PD / Anwendungen / Madhouse / Install&Remove / Install < prev    next >
Text File  |  1999-01-03  |  22KB  |  824 lines
  1. ; Installation script for Madhouse V2.12
  2. ; Revision 2 - multilingual, docs in lha archive, size-checks.
  3. ; Revision 3 - changed for Madhouse 1.2
  4. ; Revision 4 - changed for Madhouse 2
  5. ; Revision 5 - changed for Madhouse 2.1
  6. ; Revision 6 - bugfixed for Madhouse 2.1(1). Update facility.
  7. ; Revision 7 - changed to be compatible to Installer 43.3
  8. ; Revision 8 - changed for Madhouse 2.5
  9. ; Revision 9 - changed for Madhouse 2.6
  10. ; Revision 10 - bug fix for Madhouse260a.lha
  11.  
  12.  
  13. (complete 0)
  14.  
  15. (set #mainprgsource "/Madhouse")
  16. (set #mainprgdest "SYS:WBStartup")
  17.  
  18. ; File-sizes for space check. Including icons.   *****
  19. (set #size-mainprg 60000 )
  20. (set #size-locale 30000 )
  21. ; (set #size-configed 170000 )
  22. ; (set #size-blankers 330000 )
  23. ; (set #size-germandoc 155000 )
  24. ; (set #size-englishdoc 98000 )
  25. ; (set #size-importhelp 70000 )
  26.  
  27. (set #updatemode 0)
  28.  
  29. (if (= @language "deutsch") (
  30.     (set #def-anleit 0)
  31.     (set #size-defaultdoc #size-germandoc)
  32.     
  33.    (set #wrong-os
  34.     (cat "\nTut uns leid, Madhouse benötigt OS v2.04 oder höher!!\n"))
  35.     
  36.     (set #diskfull
  37.     (cat "Das Installationsscript muß leider abbrechen, weil auf der "
  38.          "Festplattenpartition \"%s\" nicht genug Platz "
  39.           "vorhanden ist." ))
  40.     
  41.     (set #copying-mainprg
  42.     (cat "\nJetzt wird das Programm Madhouse in Ihre "
  43.                 "SYS:WBStartup-Schublade kopiert. Dort wird es dann nach "
  44.                     "jedem Reset gestartet.\n"
  45.                     "Dieses Programm verwaltet die "
  46.                     "Blanker, das Einstellungsprogramm muß ebenfalls damit "
  47.                     "aufgerufen werden."))
  48.     ; *****
  49.     (set #select-defdir
  50.     (cat "Bitte wählen Sie jetzt die Schublade, in der der "
  51.                 "Anleitungstext, der MadhouseConfigEd und die Blanker installiert werden sollen.\n"
  52.                     "In diesem Verzeichnis sollten mindestens ca. 1MB frei sein!\n" ))
  53.     
  54.     (set #select-dir-prompt
  55.     (cat
  56.                 "Wählen Sie das Verzeichnis, in dem Madhouse installiert "
  57.                     "werden soll. Vergessen Sie nicht, ein neues Unterverzeichnis "
  58.                     "anzulegen, falls Sie eines wünschen!" ))
  59.     
  60.     (set #select-dir-help
  61.     (cat
  62.                 "Wie vorhin gesagt wurde, sollten Sie hier das Zielverzeichnis "
  63.                     "für Madhouse auswählen, in das die Anleitungen, der MadhouseConfigEd und "
  64.                     "die Blanker geschrieben werden.\nUm ein neues Verzeichnis anzulegen, "
  65.                     "benutzen Sie \"Make new drawer...\" und geben Sie den Namen in das Textfeld "
  66.                     "ein."))
  67.     
  68.     (set #no-min-space
  69.     (cat "Leider reicht der Platz auf der ausgewählten Festplatte "
  70.          "nicht mal für die nötigsten Dateien. Bitte wählen Sie einen anderen "
  71.           "Pfad (\"Proceed\") oder brechen Sie die Installation ab "
  72.           "(\"Abort Install\")." ))
  73.     (set #no-doc-space
  74.     (cat "Der Platz auf der ausgewählten Diskette / Festplatte reicht zwar für "
  75.          "die nötigsten Dateien, aber die deutsche Anleitung paßt schon nicht "
  76.           "mehr. Wollen Sie einen neuen Pfad wählen?" ))
  77.     (set #yes
  78.     (cat "Ja." ))
  79.     (set #no
  80.     (cat "Nein." ))
  81.     
  82.     (set #doing-docs
  83.     (cat "Die deutsche Anleitung wird kopiert." ))
  84.     
  85.     (set #doing-configed
  86.     (cat "\nJetzt wird der MadhouseConfigEd kopiert." ))
  87.     
  88.     (set #blank 
  89.     (cat"\nJetzt werden die Blanker kopiert." ))
  90.                 
  91.     (set #icontext
  92.     (cat "Für das Madhouse-Programm in WBStartup/ stehen sieben Icons zur Auswahl (Zur "
  93.          "Entscheidungshilfe zuerst in Icons/ ansehen, dann fortfahren.)\n"
  94.           "MWB=Die MagicWB-Farben müssen installiert sein."))
  95.     (set #iconchoices-1
  96.     (cat "Standard-Icon (Hauptfenster)" ))
  97.     (set #iconchoices-2
  98.     (cat "Schwarzer Keil (MWB)" ))
  99.     (set #iconchoices-3
  100.     (cat "Monitor" ))
  101.     (set #iconchoices-4
  102.     (cat "Monitor (MWB)" ))
  103.     (set #iconchoices-5
  104.     (cat "Schwarzer Monitor" ))
  105.     (set #iconchoices-6
  106.     (cat "Schwarzer Monitor (MWB)" ))
  107.     (set #iconchoices-7
  108.     (cat "Madhouse-Schriftzug" ))
  109.     
  110.     (set #diskfull-locale
  111.     (cat "Dies ist zwar ein Amiga mit OS 2.1 oder höher, die deutschsprachigen "
  112.          "Locale-Dateien können jedoch trotzdem nicht installiert werden, weil "
  113.           "auf der zuständigen Festplattenpartition nicht mehr "
  114.           "genügend Platz ist." ))
  115.     (set #locale-update
  116.     (cat "Die Locale-Dateien sind bereits vorhanden und werden gleich erneuert. "
  117.          "Es ist jedoch möglich, daß das Betriebssystem diese Daten noch im Speicher "
  118.           "hält, und Madhouse beim Start die alten Daten aus dem Speicher bekommt. "
  119.           "Sie umgehen diese Situation durch a) einen Reset nach der Installation oder "
  120.           "b) durch Beenden von Madhouse und Eingeben von \"avail flush\" in einer Shell, "
  121.           "dann können Sie das neue Madhouse starten." ))
  122.     
  123.     (set #use-locale
  124.     (cat "TOLL! Dies ist ein Amiga mit OS 2.1 oder höher! Wenn Sie also wollen, können "
  125.                 "die Programtexte von Madhouse auf deutsch erscheinen.\n"
  126.                     "Sollen die deutschen Locale-Texte installiert werden?"))
  127.     (set #locale-1
  128.     (cat "Ja" ))
  129.     (set #locale-2
  130.     (cat "Diesen Teil überspringen" ))
  131.     
  132.     ; canceled.
  133.     (set #graphicext
  134.     (cat "Vom Blanker Stars sind zwei Versionen verfügbar. Eine, die garantiert funktioniert, "
  135.          "und eine, die mit Grafikkarten (nicht dem AGA-Chipset, das läuft!) Probleme machen "
  136.           "wird. Wurde eine besondere Grafikkarte installiert?"))
  137.     (set #graphicext-1
  138.     (cat "Ja / Ich weiß nicht."))
  139.     (set #graphicext-2
  140.     (cat "Nein."))
  141.     (set #graphicexthelp
  142.     (cat "Wer sich hier nicht schlüssig ist, kann es vorerst auch mit \"Nein\" versuchen. "
  143.          "Der Bildschirmaufbau von Stars kommt dann wahrscheinlich durcheinander, wenn eine "
  144.           "Grafikkarte im Rechner ist.\nDas AGA-Chipset ist im A1200 und A4000 eingebaut und "
  145.           "macht keine Probleme." ))
  146.     
  147.     ; canceled.
  148.     (set #delprefs
  149.     (cat "Alte Einstellungsdateien \"ENV:\" und \"ENVARC:Madhouse.prefs\" müssen gelöscht werden!!"))
  150.     
  151.     (set #extro
  152.     (cat "Madhouse wurde korrekt installiert. Beim Systemstart wird das Hauptprogramm "
  153.               "von nun an automatisch aktiviert, solange Sie nicht das Programm SYS:WBStartup/Madhouse "
  154.                   "löschen. Dort können Sie es jetzt auch direkt aufrufen, um einen Reset zu "
  155.                   "umgehen.\n\n"
  156.                   "Viel Spaß!" ))
  157.  
  158.     (set #extro-up
  159.     (cat "Madhouse wurde korrekt up-ge-datet.\n"
  160.           "Vielleicht wäre ein Reset jetzt nicht schlecht.\n"
  161.           "Bitte im ConfigEd, System-Seite auf \"Update\" klicken, "
  162.           "damit neue Blanker in die Liste aufgenommen werden.\n\n"
  163.                   "Viel Spaß!" ))
  164.     
  165.     (set #updating
  166.     (cat "Madhouse ist bereits installiert! Das Update wird vollzogen...\nWenn Madhouse "
  167.           "im Moment läuft, dann beende es bitte JETZT!" ))
  168.  
  169.     (set #keyupdating
  170.     (cat "\nDas vorhandene Keyfile kann leider nicht weiterbenutzt werden. Für einen "
  171.           "Großteil der Benutzer kann das Update des Keyfiles jetzt gleich erfolgen, "
  172.           "die neuen Keyfiles werden verschlüsselt mitgeliefert."))
  173.     (set #keyupokay "\nDas Keyfile-Update hat funktioniert.\nDer neue Key ist:\n%s")
  174.     (set #keyupfailed
  175.     (cat "\nSorry: Das Keyfile-Update war nicht möglich. Wenn Du noch keine neuen "
  176.          "Madhouse.key- und Madhouse.key2-Dateien bekommen hast, wende Dich bitte "
  177.          "an den Autor:\n"
  178.          "c.jahn@gmx.de\n"
  179.          "Tel.: +49  (0) 3302 / 80 12 08\n"
  180.          "Carsten Jahn\nKuckucksruf 34\n16761 Stolpe-Sued\nGermany" ))
  181. ))
  182.  
  183.  
  184. (if (<> @language "deutsch") (
  185.     (set #def-anleit 1)
  186.     (set size-defaultdoc size-englishdoc)
  187.  
  188.    (set #wrong-os
  189.     (cat "\nSorry, Madhouse needs OS 2.04 or higher!\n"))
  190.         
  191.     (set #diskfull
  192.     (cat "The script has to abort, because the partition \"%s\" does "
  193.          "not have enough free disk space." ))
  194.     
  195.     (set #copying-mainprg
  196.     (cat "\nNow, the programm Madhouse will be copied into your SYS:WBStartup-drawer. "
  197.          "There it will be started after every reset. This program handles the "
  198.           "blankers, and you have to run the prefs-editor \"MadhouseConfigEd\" from it."))
  199.     
  200.     ; *****
  201.     (set #select-defdir
  202.     (cat "Please select the drawer, in which you want to copy the doc, MadhouseConfigEd "
  203.          "and the blankers in the following requester.\nYou will need about 1MB of "
  204.           "disk space."))
  205.     
  206.     (set #select-dir-prompt
  207.     (cat "Select the drawer in which you want to install Madhouse. If you prefer an own "
  208.          "subdirectory for Madhouse, please create one!" ))
  209.     
  210.     (set #select-dir-help
  211.     (cat "The script will copy MadhouseConfigEd, the docs and the blankers into the "
  212.          "drawer you have to select here. Create a new directory by using "
  213.           "\"Make New Drawer...\" and entering the name of it into the string gadget." ))
  214.     
  215.     (set #doing-docs
  216.     (cat "Copying english documentation." ))
  217.     
  218.     (set #doing-configed
  219.     (cat "\nNow, MadhouseConfigEd will be copied." ))
  220.     
  221.     (set #blank 
  222.     (cat"\nNow, the blankers will be copied." ))
  223.                 
  224.     (set #icontext
  225.     (cat "You have got the choice out of seven icons for the Madhouse-program (in "
  226.          "SYS:WBStartup). To make a decision, you can look at the icons right now "
  227.           "(\"Icons\"-drawer) first. MWB = you "
  228.           "need the MagicWB-colors on your Workbench."))
  229.     (set #iconchoices-1
  230.     (cat "Standard-Icon (from Madhouse-dir)" ))
  231.     (set #iconchoices-2
  232.     (cat "Colored points & black area (MWB)" ))
  233.     (set #iconchoices-3
  234.     (cat "Monitor" ))
  235.     (set #iconchoices-4
  236.     (cat "Monitor (MWB)" ))
  237.     (set #iconchoices-5
  238.     (cat "Black Monitor" ))
  239.     (set #iconchoices-6
  240.     (cat "Black Monitor (MWB)" ))
  241.     (set #iconchoices-7
  242.     (cat "Madhouse-Text" ))
  243.     
  244.     ; Obsolete, english strings are built-in.
  245.     (set #use-locale
  246.     (cat "" ))
  247.     (set #locale-1
  248.     (cat "" ))
  249.     (set #locale-2
  250.     (cat "" ))
  251.     
  252.     ; canceled.
  253.     (set #graphicext
  254.     (cat "The Blanker Stars is available in two versions, one that works in every case and one "
  255.          "that would make troubles with graphic extensions. The AGA-Chipset works with both. "
  256.           "Do you have installed a graphic extension?"))
  257.     (set #graphicext-1
  258.     (cat "Yes / I don't know."))
  259.     (set #graphicext-2
  260.     (cat "No"))
  261.     (set #graphicexthelp
  262.     (cat "If you don't know the answer, you should perhaps even try \"Yes\", because you would "
  263.          "know if you've had added something to your Amiga...\nThe AGA-Chipset is in every A1200 "
  264.           "and A4000 and makes no troubles."))
  265.     
  266.     ; canceled.
  267.     (set #delprefs
  268.     (cat "Old preference files \"ENV:\" and \"ENVARC:Madhouse.prefs\" have to be deleted!!"))
  269.     
  270.     (set #extro
  271.     (cat "Madhouse was installed correctly. While booting, the main program \"Madhouse\" "
  272.          "will be started automatically, as long as you don't delete it (it is in "
  273.           "SYS:WBStartup). You can start it directly, if you don't want to reset your "
  274.           "machine.\nEspecially if you do not own a hard disk, you should read the "
  275.           "doc, otherwise you should it do anyway, of course...\n\nEnjoy!"))
  276.     (set #extro-up
  277.     (cat "Madhouse was updated correctly.\n"
  278.           "Maybe a reset would be good now.\n"
  279.           "Please click on \"Update\" (ConfigEd, System page), "
  280.           "to refresh the blanker list.\n\n"
  281.                   "Enjoy!" ))
  282.  
  283.     (set #updating
  284.     (cat "Madhouse is already installed! Updating...\nIf Madhouse is running at the "
  285.           "moment, please quit it NOW." ))
  286.     (set #keyupdating
  287.     (cat "\nYour existing keyfile can't be used any longer. For a lot of users, the "
  288.          "keyfile update will be possible right now. New keys are submitted in "
  289.          "encrypted form."))
  290.     (set #keyupokay "\nKeyfile update worked okay.\nYour new key is:\n%s")
  291.     (set #keyupfailed
  292.     (cat "\nSorry: Keyfile Update was not possible with your key. If you did not "
  293.          "get new Madhouse.key and Madhouse.key2 files yet, please contact the "
  294.          "author at:\n"
  295.          "c.jahn@gmx.de\n"
  296.          "Tel.: +49  (0) 3302 / 80 12 08\n"
  297.          "Carsten Jahn\nKuckucksruf 34\n16761 Stolpe-Sued\nGermany" ))
  298. ))
  299.  
  300.  
  301.  
  302. ;  **** Auf OS 2.04 checken.
  303.  
  304. (if (< (/ (getversion) 65536) 37)
  305.     (
  306.         (message #wrong-os)
  307.         (exit (quiet))
  308.     )
  309. )
  310. (complete 1)
  311.  
  312.  
  313.  
  314.  
  315. ;  **** Madhouse suchen.
  316.  
  317. (if (exists "SYS:WBStartup/Madhouse") (set #updatemode 1))
  318. (if (exists "SYS:WBStartup/WBStartup (Enabled)/Madhouse") (
  319.     (set #updatemode 1)
  320.     (set #mainprgdest "SYS:WBStartup/WBStartup (Enabled)")
  321. ))
  322. (if (exists "SYS:WBStartup/WBStartup (Disabled)/Madhouse") (
  323.     (set #updatemode 1)
  324.     (set #mainprgdest "SYS:WBStartup/WBStartup (Disabled)")
  325. ))
  326. (if (exists "SYS:Startup/Madhouse") (
  327.     (set #updatemode 1)
  328.     (set #mainprgdest "SYS:Startup")
  329. ))
  330.  
  331.  
  332.  
  333.  
  334. ;  **** ConfigEd suchen. #gtt belegen.  ****  Update vom Keyfile?
  335.  
  336. ; #keyupdate = 0: kein Key. = 1: nur alter Key. = 2 neuer Key schon da.
  337.  
  338. (run (cat "Gettooltype \"" (tackon #mainprgdest "Madhouse") "\" CONFIGED") )
  339. (set #gtt (getenv "Gettooltype"))
  340. (delete "ENV:Gettooltype")
  341.  
  342. (set #keypath "S:Madhouse")  ; without .key extension.
  343. (set #keyupdate 0)
  344. (if (exists "S:Madhouse.key" ) (
  345.     (set #keyupdate 1)
  346. ))
  347. (if (exists (tackon (pathonly #gtt) "Madhouse.key") ) (
  348.     (set #keypath (tackon (pathonly #gtt) "Madhouse"))
  349.     (set #keyupdate 1)
  350. ))
  351.  
  352. ; new keyfile already there?
  353. (if (exists "S:Madhouse.key2" ) (set #keyupdate 2) )
  354. (if (exists (tackon (pathonly #gtt) "Madhouse.key2") ) (
  355.     (set #keyupdate 2)
  356. ))
  357. (if (exists "KEYS:Madhouse.key2"            (noreq) ) (set #keyupdate 2) )
  358. (if (exists "KEYFILES:Madhouse.key2"    (noreq) ) (set #keyupdate 2) )
  359. (if (exists "KEYPATH:Madhouse.key2"        (noreq) ) (set #keyupdate 2) )
  360. (if (exists (tackon (getenv "KEYPATH") "Madhouse.key2") ) (set #keyupdate 2) )
  361.  
  362. (if (= #keyupdate 1) (
  363. ; alter Key da, aber kein neuer Key.
  364.     (if (NOT (exists "/KeyUpdate/KeyUpdater")) (
  365.         (exit "\n\nThis is no original distribution archive!\nCouldn't find KeyUpdater.\n")
  366.     ))
  367.     (message #keyupdating)
  368.     (set @execute-dir "/KeyUpdate" )
  369.     (set #keyupresult (run ("KeyUpdater >CON:100/100/400/150/KeyUpdater-Output/CLOSE/WAIT GET %s" #keypath )))
  370.     (if (= #keyupresult 0 ) (
  371.         (message (#keyupokay (cat #keypath ".key2" )))
  372.     )(
  373.         (message #keyupfailed)
  374.     ))
  375. ))
  376.  
  377.  
  378. ;  **** Update von Madhouse?
  379.  
  380. (if (= #updatemode 1) (
  381.     (message #updating)
  382. ))
  383.  
  384.  
  385.  
  386.  
  387.  
  388. ;  **** Erster size-check
  389.  
  390. (set #wb-space (getdiskspace "SYS:" ))
  391.  
  392. (if (< #wb-space #size-mainprg) (
  393.     (abort (#diskfull (expandpath "SYS:")) )
  394. ))
  395.  
  396. (complete 2)
  397.  
  398.  
  399.  
  400. ;  **** Main-Program in SYS:WBStartup/
  401.  
  402. (complete 0)
  403.  
  404. (message #copying-mainprg )
  405.  
  406. (copyfiles
  407.   (source #mainprgsource)
  408.   (dest #mainprgdest)
  409. )
  410. (complete 10)
  411.  
  412.  
  413.  
  414. ;  **** Icon for Main-Program
  415.  
  416. (if (= #updatemode 0) (
  417.     ; (run ("delete SYS:WBStartup/Madhouse.info"))
  418.     (set #icontype (askchoice
  419.             (prompt #icontext )
  420.             (help    ""    )
  421.             (choices #iconchoices-1 #iconchoices-2 #iconchoices-3 #iconchoices-4 #iconchoices-5 #iconchoices-6 #iconchoices-7 )
  422.             (default 5)
  423.         )
  424.     )
  425.     (set #icondest "BlaBla!")
  426.     (if (= #icontype 0) (
  427.         (set #iconsource "/Madhouse.info")
  428.         (set #icondest "SYS:WBStartup/Madhouse.info")
  429.     ))
  430.     (if (= #icontype 1) (
  431.         (set #iconsource "/Icons/Madhouse_MWB1.info")
  432.         (set #icondest "SYS:WBStartup/Madhouse_MWB1.info")
  433.     ))
  434.     (if (= #icontype 2) (
  435.         (set #iconsource "/Icons/Madhouse2.info")
  436.         (set #icondest "SYS:WBStartup/Madhouse2.info")
  437.     ))
  438.     (if (= #icontype 3) (
  439.         (set #iconsource "/Icons/Madhouse_MWB2.info")
  440.         (set #icondest "SYS:WBStartup/Madhouse_MWB2.info")
  441.     ))
  442.     (if (= #icontype 4) (
  443.         (set #iconsource "/Icons/Madhouse3.info")
  444.         (set #icondest "SYS:WBStartup/Madhouse3.info")
  445.     ))
  446.     (if (= #icontype 5) (
  447.         (set #iconsource "/Icons/Madhouse_MWB3.info")
  448.         (set #icondest "SYS:WBStartup/Madhouse_MWB3.info")
  449.     ))
  450.     (if (= #icontype 6) (
  451.         (set #iconsource "/Icons/Madhouse4.info")
  452.         (set #icondest "SYS:WBStartup/Madhouse4.info")
  453.     ))
  454.     (copyfiles
  455.         (source #iconsource)
  456.         (dest "SYS:WBStartup")
  457.         (noposition)
  458.     )
  459.     (run ("rename %s SYS:WBStartup/Madhouse.info" #icondest ))
  460. ))
  461. (complete 17)
  462.  
  463.  
  464.  
  465. ;  **** Locale
  466.  
  467. (if (> (/ (getversion) 65536) 37)
  468.     (
  469.         (if (<> #def-anleit 1 ) (
  470.  
  471.             (set #loc-space (getdiskspace "LOCALE:" ))
  472.             (if (< #loc-space size-locale) (
  473.                     (message ( #diskfull-locale ))
  474.                 )(
  475.                     (set #useloc 0)
  476.                     (if (= #updatemode 1) (
  477.                         (if (exists "LOCALE:Catalogs/deutsch/madhouse.catalog") (set #useloc 1))
  478.                     )(
  479.                         (set #useloc  (askbool (prompt #use-locale)
  480.                                      (help "")
  481.                                      (choices #locale-1 #locale-2 )) )
  482.                     ))
  483.                     (if (= #useloc 1)
  484.                     (
  485.                         ;(if (exists "LOCALE:Catalogs/deutsch/madhouse.catalog") (
  486.                         ;   (message (#locale-update))
  487.                         ;))
  488.                         (copyfiles
  489.                            (source "/locale/deutsch/madhouse.catalog")
  490.                            (dest "LOCALE:Catalogs/deutsch")
  491.                         )    
  492.                         (copyfiles
  493.                            (source "/locale/deutsch/madhousebg.catalog")
  494.                            (dest "LOCALE:Catalogs/deutsch")
  495.                         )
  496.                     ))
  497.             ))
  498.         ))
  499.         (run "c:avail flush")
  500.     )
  501. )
  502. (complete 27)
  503.  
  504.  
  505. ;  **** Library
  506.  
  507. (copylib
  508.     (source "/libs/madblankersupport.library")
  509.     (dest "Libs:")
  510. )
  511.  
  512. (complete 30)
  513.  
  514.  
  515. ;  **** Set directory for docs, blankers etc...
  516.  
  517. (set #min-space (+ #size-configed #size-blankers))
  518. (set #doc-space (+ #min-space #size-defaultdoc))
  519.  
  520. (set #loopagain 1)
  521.  
  522. (if (= #updatemode 1) (
  523.     (set #loopagain 0)
  524.     ; #gtt schon belegt.  (s.o.)
  525.     (if (exists #gtt) (
  526.         (set @default-dest (pathonly #gtt))
  527.     )(
  528.         (set #loopagain 1)
  529.         (message #select-defdir )
  530.     ))
  531. )(
  532.     (message #select-defdir )
  533. ))
  534.  
  535.  
  536. (if (= #loopagain 1 ) (
  537.     (set @default-dest
  538.       (askdir
  539.         (prompt #select-dir-prompt )
  540.         (help #select-dir-help )
  541.          (default ":")
  542.       )
  543.     )
  544. ))
  545.     
  546.  
  547. (complete 35)
  548.  
  549.  
  550. ;  **** Doc-Files
  551.  
  552. (working #doing-docs)
  553.  
  554. (if (= #updatemode 1) (
  555.     ; evtl. alte Anleitung löschen.
  556.     (if (exists (tackon @default-dest "Registration_D.txt")) (
  557.         (delete (tackon @default-dest "Registration_D.txt") )
  558.         (delete (tackon @default-dest "Registration_D.txt.info") )
  559.     ))
  560.     (if (exists (tackon @default-dest "Anleitung.guide")) (
  561.         (delete (tackon @default-dest "Anleitung.guide") )
  562.         (delete (tackon @default-dest "Anleitung.guide.info") )
  563.     ))
  564.     (if (exists (tackon @default-dest "Registration_E.txt")) (
  565.         (delete (tackon @default-dest "Registration_E.txt") )
  566.         (delete (tackon @default-dest "Registration_E.txt.info") )
  567.     ))
  568.     (if (exists (tackon @default-dest "Doc.guide")) (
  569.         (delete (tackon @default-dest "Doc.guide") )
  570.         (delete (tackon @default-dest "Doc.guide.info") )
  571.     ))
  572. ))
  573.  
  574.  
  575. (if (= #def-anleit 1) ( 
  576.     (copyfiles
  577.         (source "/Docs/MadhouseE.guide" )
  578.        (dest @default-dest)
  579.         (infos)
  580.         (noposition)
  581.     )
  582. )(
  583.     (copyfiles
  584.         (source "/Docs/MadhouseD.guide" )
  585.        (dest @default-dest)
  586.         (infos)
  587.         (noposition)
  588.     )
  589. ))
  590.  
  591.  
  592.  
  593. (if (= #keyupdate 0) (
  594. ; kein Keyfile installiert.
  595.  
  596.     (set #registerdest (tackon @default-dest "MadRegister"))
  597.     (makedir #registerdest)
  598.     (copyfiles
  599.         (source "/MadRegister.info" )
  600.        (dest @default-dest)
  601.         (infos)
  602.         (noposition)
  603.     )
  604.  
  605.     (if (= #def-anleit 1) ( 
  606.         (copyfiles
  607.             (source "/MadRegister/Registration_E.txt" )
  608.            (dest #registerdest)
  609.             (infos)
  610.             (noposition)
  611.         )
  612.         (copyfiles
  613.             (source "/MadRegister/email-Register_E.info" )
  614.            (dest #registerdest)
  615.             (infos)
  616.             (noposition)
  617.         )
  618.     )(
  619.         (copyfiles
  620.             (source "/MadRegister/Registration_D.txt" )
  621.            (dest #registerdest)
  622.             (infos)
  623.             (noposition)
  624.         )
  625.         (copyfiles
  626.             (source "/MadRegister/email-Register_D.info" )
  627.            (dest #registerdest)
  628.             (infos)
  629.             (noposition)
  630.         )
  631.     ))
  632.     
  633.     (copyfiles
  634.         (source "/MadRegister/KeyUpdater" )
  635.        (dest #registerdest)
  636.     )
  637.     (copyfiles
  638.         (source "/MadRegister/emailRegister" )
  639.        (dest #registerdest)
  640.     )
  641. ))
  642.     
  643.     
  644.  
  645.  
  646. (complete 45)
  647.  
  648.  
  649.  
  650. ;  **** MadhouseConfigEd
  651.  
  652. (message #doing-configed)
  653. (copyfiles
  654.    (source "/MadhouseConfigEd")
  655.    (dest @default-dest)
  656. )
  657. (complete 55)
  658.  
  659.  
  660.  
  661. ;  **** Blankers
  662.  
  663. (procedure TESTRENAMEBLANKER
  664. (
  665.     ; Argument: #checkbl is the blanker's directory.
  666.     
  667.     (run ("getblankertype %s" (tackon #checkbl "gadget")))
  668.     
  669.     (set #blproto (getenv "getblankertype"))
  670.     
  671.     (if (= #blproto "Blitz" ) ( rename #checkbl (cat #checkbl "-Blitz") ))
  672.     (if (= #blproto "Garshne" ) ( rename #checkbl (cat #checkbl "-Garshne") ))
  673.     (if (= #blproto "Swaz" ) ( rename #checkbl (cat #checkbl "-Swaz") ))
  674.     (if (= #blproto "Madhouse" ) (
  675.         ; old protocol
  676.         (run ("delete %s ALL" #checkbl))
  677.         (run ("delete %s" (cat #checkbl ".info") ))
  678.     ))
  679.     
  680.     (delete "ENV:getblankertype" )
  681. ))
  682.  
  683. (procedure COPYBLANKER
  684. (
  685.     ; Argument: #copybl is the blanker's name.   ("Stars")
  686.     ;           #bl-dest is destination drawer   ("yz:xy/Blankers")
  687.  
  688.     (working ("\nCopying submitted blankers...\n%s" #copybl ))
  689.     
  690.     (set #bldir-dest (tackon #bl-dest #copybl))
  691.     (makedir #bldir-dest)
  692.     ; if not already existing.
  693.  
  694.     (if (exists (tackon #bldir-dest "pref")) (
  695.         ; don't overwrite user's preferences.
  696.         (copyfiles
  697.             (source (tackon "/Blankers" #copybl) )
  698.             (dest #bldir-dest)
  699.             (help "" )
  700.             (pattern "~(pref)")
  701.             (optional "force" )
  702.             (infos)
  703.             (noposition)
  704.         )
  705.     )(
  706.         (copyfiles
  707.             (source (tackon "/Blankers" #copybl) )
  708.             (dest #bldir-dest)
  709.             (help "" )
  710.             (all)
  711.             (optional "force" )
  712.             (infos)
  713.             (noposition)
  714.         )
  715.     ))
  716. ))
  717.  
  718.  
  719. (message #blank )
  720.  
  721. (set #bl-dest ( tackon @default-dest "Blankers" ) )
  722.  
  723. (if (= #updatemode 0 ) (
  724.     (makedir #bl-dest )
  725. )(
  726.     ; new Blankers like Interference might already exist (Garshne etc.)
  727.     
  728.     (set #checkbl (tackon #bl-dest "Interference"))
  729.     (TESTRENAMEBLANKER)
  730.     
  731.     (set #checkbl (tackon #bl-dest "Water"))
  732.     (TESTRENAMEBLANKER)
  733.     
  734. ))
  735.  
  736.  
  737.  
  738. ; copy blankers.
  739.  
  740. (foreach "/Blankers" "~(#?.info|the_right_drawer)" (
  741.     (set #copybl @each-name)
  742.     (COPYBLANKER)
  743. ))
  744.  
  745.  
  746.  
  747. (copyfiles
  748.     (source "/Blankers.info" )
  749.     (dest @default-dest )
  750.     (help "" )
  751. )
  752.  
  753. (copyfiles
  754.     (source "/Blankers/the_right_drawer" )
  755.     (dest #bl-dest )
  756.     (help "" )
  757. )
  758.  
  759.  
  760.  
  761. (if (= #updatemode 1) (
  762.     ; delete blankers which are not supported any more.
  763.     
  764.     (foreach #bl-dest "~(#?.info|the_right_drawer)" (
  765.         (working ("\nSearching for old blankers...\n%s" @each-name ))
  766.         (run ("getblankertype %s" (tackon (tackon #bl-dest @each-name) "gadget")))
  767.         
  768.         (set #blproto (getenv "getblankertype"))
  769.         (if (= #blproto "Madhouse" ) (
  770.             ; old protocol
  771.             (run ("delete %s ALL" (tackon #bl-dest @each-name)))
  772.             (run ("delete %s" (cat (tackon #bl-dest @each-name) ".info")))    
  773.         ))
  774.         
  775.     ))
  776.     (delete "ENV:getblankertype")
  777.     
  778. ))
  779.  
  780.  
  781.  
  782. (complete 80)
  783.  
  784.  
  785.  
  786. ;  **** ImportHelp
  787.  
  788. (set #imphelp-dest ( tackon @default-dest "ImportHelp" ) )
  789.  
  790. (if (= #updatemode 0 ) (makedir #imphelp-dest ) )
  791.  
  792. (copyfiles
  793.     (source "/ImportHelp")
  794.     (dest #imphelp-dest)
  795.     (help "" )
  796.     (all)
  797.     (infos)
  798.     (noposition)
  799. )
  800.  
  801. (complete 90)
  802.  
  803.  
  804.  
  805. ;  **** Set ToolType for SYS:WBStartup/Madhouse
  806.  
  807. (if (= #updatemode 0) (
  808.     (tooltype  (dest "SYS:WBStartup/Madhouse")
  809.                (settooltype "CONFIGED" (tackon @default-dest "MadhouseConfigEd"))
  810.     )
  811. ))
  812. (complete 95)
  813.  
  814.  
  815. ;
  816. ;  **** Extro
  817.  
  818. (if (= #updatemode 0 ) (message #extro) (message #extro-up) )
  819.  
  820.  
  821. ;   **** Finished!
  822.  
  823.  
  824.